home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 39 / Amiga Format CD39 (1999-04-13)(Future Publishing)(GB)[!][issue 1999-05].iso / -seriously_amiga- / wb / selector / bro / what < prev   
AmigaDOS Script File  |  1999-03-02  |  913b  |  70 lines
  1. .key file
  2. .bra {
  3. .ket }
  4.  
  5. failat 21
  6.  
  7. unset ext
  8.  
  9. set ext `list "{file}" lformat %e`
  10.  
  11. if "$ext" EQ lzx
  12.     set ext lha
  13. endif
  14.  
  15. if "$ext" EQ digi
  16.     hip "{file}"
  17.     quit
  18. endif
  19.  
  20. if "$ext" EQ xm
  21.     hip "{file}"
  22.     quit
  23. endif
  24.  
  25. if "$ext" EQ mod
  26.     hip "{file}"
  27.     quit
  28. endif
  29.  
  30.  
  31. setenv ppshort "{file}"
  32.  
  33. if `count file env:ppshort text mod.` NOT EQ 0
  34.         hip "{file}"
  35.         quit
  36. endif
  37.  
  38. unsetenv ppshort
  39.  
  40. if "$ext" EQ lha
  41.     run >nil: selector sel:bro/pleasewait.sel
  42.     set opa `list "{file}" lformat %m`
  43.  
  44.     makedir >nil: "t:$opa"
  45.     lzx -a x "{file}" "t:$opa/"
  46.     execute sel:bro/makebrowser "t:$opa/"
  47.  
  48.     selector t:file.sel
  49.     cd "t:$opa"
  50.     delete >nil: #? all force
  51.     cd sel:bro
  52.     delete >nil: "t:$opa" force
  53.     quit
  54. endif
  55.  
  56.  
  57. if exists "{file}.info"
  58.     wbrun "{file}"
  59.     if warn
  60.         sys:utilities/multiview SCREEN "{file}"
  61.     endif
  62. else
  63.     "{file}" <>CON:30/30/600/100/Browser/auto/close/wait
  64.     if warn
  65.         sys:utilities/multiview SCREEN "{file}"
  66.     endif
  67.  
  68. endif
  69.  
  70.